1000 1010 1020 1025 1030 1040 1045 1050 1055 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160 1170 1180 1190 1200 1210 1215 1220 1230 1240 1250 1260 1270 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1420 1425 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550 1560 ACCOUT NUMBER NOT ON FILE }}}":For W=i To 100:Next N: Return Re* . SBH130 8/03/85 6oto 2500 Graphics 2:Poke 710,Cl:Pofce 712,C2:Poke 755, lsReturn Graphics 0: Poke 710, Cl : Poke 7 12, C2; Return Position 2,9:? "P.O. NUMBER" Return Trap 1 U45: Position 2,2:? ''NUMBER OF LABEL LINES ";Lab:Position 23,2: Input LabiReturn . . , rj Position 1,2: Input Cn$: If Cn$="" Then Po sitio n 2,fr ? “CAS H- s(teturn_ CNJt - rU-lf' Position 1,4: Input Cn2$: Position 1,6; Input Cal$: Position 1,8; Input Ca2$:Return Position 1,10; Input Pon$ Return ? ;? "PART NUMBER"; Input Pnl:If Pn$="END u Or Pn$="NEXT" Then Return T$= H #”,Pn$, 8 ® M F=Find(Pnpt$,T$,0):T=F: It F=0 Then ? " PART NUMBER NOT IN INVENTORY} } } * : For N=1 To 100:Next W:Return F=Find(Pnpt$, 8 §%F);S=VaHPnpt$(F+l)) F=Find (Pnpt$, ,F) ;B=VaI <Pnpt$(F+l) ) : Return Trap 1150: Open #1,4,0, 8 D2: INVFIL.DAT 8 : Return Point #l,S,B:Rget #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$,Reo, Cost, Pri, Sold, Tds,9oo,Pg Close #1 : Return Trap 1210: Cl oss #1 Open #1,8,0, B B1: SETUP2.DAT" :Rput #l,D$,Dtot,In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M?,M10 6oto 1210 Trap 1210:Close IlsDpen #1,12,0, "D2: INVFIL.DAT" Point #l,S,B:Rput #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$, Rea, Cost, Pri, Sold, Tds,Qoo,Pg Close #l:Return ? 8 } ENTER FIRST LETTER OF YOUR CHOICE. 8 Close #2: Open #2,4,0, 8 K: 8 :6et #2,Key;Close #2 Sound 0, 100, 10, 14: For W=1 To 4: Next N:Sound 0, 0,0,0: Return T$="#", Acc$, F=Find(Acpt$,T$,0) :T=F; If F=0 Then F=Find(Acpt$, 8 8 8 ,F):Sa=Val (Acpt$(F+l) ) F=Find(Acpt$, "Sf " , F) : Ba=VaI (Acpt$(F+l) ) : Return Close #1 : Trap 1300: Open #1 , 4, 0, "D1 : ACCOUNT. DAT” : Return Point #l,Sa,Ba:Rget #l,Cn$,Cn2$,Cal$,Ca2$,Tdt,Pd,8d,Atc,Trin$ Close #1 : Return Trap 1340: Open #1,12,0, "Di : ACCOUNT. DAT" : Return Position 11,0:7 Acc:Posi tion 2,2:7 Cn$;Position 2,4:7 Cn2$:Position 2,6:7 Cal$:Position 2,8:7 Ca2$ Return 7 #7;Chr$(Ptl) ; ”#"; Acc 7 #7; Using Fi*,Cn$, B T0 DATE T0T n ,Tdt 7 #7; Using Fl$,Cal$, “PAID TO DATE 8 , Pd 7 #7; Using Fl$,Ca2$ ? "BALANCE DUE" , Bd Rc=Rc+l:H Rc>14 Then 7 #7; Chr $ (Pt4) : Rc=0 Return Position 2,2:7 "ENTER ACCOUNT NUMBER OR NAME"; Input T$ Return Close # 1 : Open #1,4,0, “Dl:ACCPT.DAT":Rget #1 , Acpt$: Return Close #7 : Open #7,8,0, 8 P: ,r Return Close #1 : Open #1,4,0, ”D1 : ACCOUNT. DAT 1 Return Point #1 , Sa, Ba: Rget #l,Cn$,Cn2$,Cal$,Ca2$,Tdt, Pd, Bd, Acc,Tr®$: Return Note #1 , Sa, Ba: Rget #l,Cn$,Cn2$, Cal$,Ca2$,Tdt, Pd, Bd, Acc, Trm$: Return Point #1 , Sa, Ba: Rput #!,Cn$,Cn2$,Cal$,Ca2$ Jdt, Pd, Bd,Acc,Tri$: Return Close #1 : Open #1,12,0, "Dl : ACCOUNT. DAT" : Return 7 8 } 8 : Position 2,0:7 "ACCOUNT Imposition 2,1:7 “CUSTOMER NAME" : Position 2,3:? "OPTIONAL LINE" Position 2,5:7 "CUSTOMER ADDRESS" : Position 2,7:7 "CITY, ST. ZIP":Return Position 2,9:7 “TERMS": Return Position 1,10: Input Trm$: Return T$="#", Acc$, "8” F=Find(Acpt$,T$,0) :T=F: If F- 0 Then ti V' s' /' / 7 ; ( ( s W ~e v s ( ^ lA - J i i n H ACCOUNT FILE IS FULL }}}*:For W=1 To 100: Next WjReturn 1570 Position 2,10s? Trffi$ 5 Return 1580 ? #7;Chr*(Pt2);Acc;Tab(8);Cn*;Tab!45);Cal*;Tab(82);Ca2$;Tab(118);Tr«$;Chr$(Pt3) 1590 Rc=Rc+l:If Rc>56 Then ? i7;Chr*IPt4):Rc=0 1600 Return 1610 Position 2,11:? "TOTAL SALES" : Positi on 2,13:? "PAID“:Position 2,15:? "BALANCE" 1620 Return 1630 Position 2,12:? Tdt: Position 2,14:? Pd:F'osition 2,16:? Bd 1640 Return 1650 Position 1,12: Input TdtiPosition 1,14: Input Pd:Position 1,16: Input Bd 1660 Return 1670 ? #7 ; Chr$ f Pt 1 ) ; M #";Acc 1680 ? t7;Cn*:? #7;Cr.2$ 1690 ? #7:Cal$ 1700 ? *7;Ca2* 1710 For W=1 To Lab-5:? *7:Next H 1720 Return 1730 ? “ACCOUNT #"jAcc:? Cn$:? Cn2* 1740 ? Cal* 1750 ? Ca2*:? 1760 Return 1770 Gps=0:lf Cost>0 And Pri >0 Then 6pa=(Int((l-(Cost/Pri!)tl000))/10 1780 Position 2,2:? "PART NUMBER: “;Pn* 1790 ? "DESCRIPTION;":? Des* 1800 ? “VENDOR;":? Vnt:? Val*:? Va2t 1810 ? "Q0H: “;Qoh:? "LOCATION: ”;Loc*:Position 28,10:? "GPM “:Gp«:”X “ 1820 ? "REORDER POINT: ”;Reo:? "COST: Cost : ? "SALE PRICE:*";Pri 1830 ? "3UANITY SOLD: °;Sold:? “TOTAL DOLLAR VALUE SOLD: Tds: ? "QTY ON ORDER: “;Boo 1840 ? "GROUP: ";Pg 1850 Return 1860 Position 14,2: Input Pn$:If Pn*=“END” Then Return 1870 Position 1,4: Input Des$: Posi ti on 1,6: Input VntiPosition 1,7: Input Val*:Position 1,8: Input Va2* 1880 Trap 1380:Position 6,9: Input OohsPosition 11, 10: Input Loc* 1890 Trap 1890: Posi ti on 16, 11: Input Reo 1900 Trap 1900: Position 7, 12: Input Cost 1910 Trap 1910: Position 13, 13: Input Pri 1920 Trap 1920: Position 15, 14: Input Sold 1930 Trap 1930:Position 26, 15: Input Tds 1940 Trap 1940:Position 15, 16: Input Qoo 1950 Trap 1950: Posi tion 8, 17: Input Pg 1960 Return 1970 T*="i“,Pn*,"8" 1980 F=Find(Pnpt*,Tt,0):If T=F Then Return 1990 If F>0 Then ? “ PART NUMBER ALREADY EXIST} }}": For N=1 To 100:Next U 2000 Return 2010 End 2020 Fl*="i ! !!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!! ##### «*«*# #*»*«,** *«*«*.«« ##### 2030 Fl*=Fl*,“iili#i.#t *#*##*, *# *##.#" 2040 ? #7:? #7 ; Tab (32-Len (Cn$) 12 ) ; Cn$; * ";D*U,2);"/";D$(3,4);"/";DI<5);Chr*(Pt2):? #7 i M i ! i i I i 1 » GROUP 00H 2050 ? #7; "PART I DESCRIPTION 2060 ? #7;" T/COST T/RETAIL GPU" 2070 For N=1 To 120;? #7; sNext W;? #7 2080 Line=4; Return 2090 ? #7; Using Fl$,Pn$,Des$,Pg, Qoh, Cost, Pri, Qoo, Loc$, Tcost , Tpri , 5pm 2100 Gtc=Gtc+Tco5t:Gtp=6tp+Tpri 2110 Line=Line+l; If Line>=60 Then ? #7; Chr$ (Pt3) ; Chr$ (Pt4) : Soto 2040 2120 Return 2130 Trap 2140; If Vn$(l,Len(Cn$) )=Cn$ Then 2090 2140 Return 2150 If Pg=Pgn Then 2090 2160 Return 2170 Fl$=“ !!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!! 1 1 * 1 1 * 1 ! 1 * 111,111111 #####,##“ 2180 ? #7;? #7; Tab (27); “PRICE LIST “;D$(1,2) ; V H ;D$(3 ? 4> ; “/“?D$(5) ;? #7 COST PRICE QOO LOCATION %0 CyO r. togs j o ft “> — - f ' A 2190 ? 17; "PART # DESCRIPTION LOCATION PRICE 8 2200 For N=l To 78:? #7;“=";:Next W:? #7 2210 Line=4:Return 2220 ? #7; Using Fl*,Pn*,Des*,Loc*,Pri — e=»” -r 2230 Line=Line+l;If Line=60 Then ? #7;Chr$!Pt4):Goto 2180 2240 Return 2250 If 9oh+9oo<Reo Then 2090 2260 Return 2270 Fl$="! ! !!!!!!!!!! ! I i !! I ! ! I !!!!!!!!!! I !!!!!! ! !!!!!!!!!! ! I### ###.## ###.## ##### !!!!!!!!!! #»###*### #####*,##•' 2280 ? #7;Chrt(Ptl) ; “TURN REPORT “;D*(1,2);"/";D$!3,4!;"/";D*!5! 2290 ? #7;Chrt(Pt2) 2300 ? #7; “PART # DESCRIPTION 90H COST PRICE 900 LOCATION TURN AMOUNT 2310 For H=1 To 120:? #7;"=“;:Next W:? *7 2320 Return 2330 Trap 2340: Close #7: Open #7,8,0, "P: ": Goto 2350 2340 ? “TURN ON PRINTER AND PRESS RETURN} “:Gosub 1220: Goto 2330 2350 ? #7;N$:? #7;A*:? #7;A1*:? #7;Misc* 2360 ? #7:? #7:? #7 ; Tab ( 30 );Chrt(Ptl!;* PURCHASE ORDER":? #7; Tab <331 ; Chr$ < Pt 1 J ; ; M10: ? #7 2370 ? #7:? #7; "======================================“ 2380 ? #7;Chr* (Ptl); “VENDER: ";Tab (21); “SHIP TO:" 2390 ? #7; Pv$; Tab (40) ; N$ 2400 ? #7; Pal$; Tab (40) ; A$ 2410 ? #7;Pa2$; Tab (40) ; Al$ 2420 ? #7;"========================”============";? #7:? #7 2430 ? 17; “PART i“;Tab(14);"DESC. /VENDOR F7N";Tab(52);“3UAN“;Tab(58);"PRICE EA";Tab(68) ; "EXT. PRICE” 2450 Te=l:Return 2460 FI *=“#### #####,## #####.##" 2470 ? #7; Pni; Tab ( 14) i Des* : Tab (52) ; : ? #7; Using F 1 $, He, Cost, Cost tHsi - — — 2480 Tot=Tot+Cost*Hffl 2490 Return 2500 Gosub 1020: Posi ti on 6,3:? #6; “SBM 130":Position 3,5:? #6; "COPYRIGHT 1985" 2501 Position 2,7:? #6;"newell industries":? , "COMPILING PROGRAM":? “INSTALL DATA DISK IN DRIVES 1 and 2" 2502 Fast :? " PRESS RETURN WHEN READY"; 2505 Din Cl*(3),C2*(3),D*(7),9*<7),N*<40),A*(40),Al*!40),Misc*(20),T*(13),Fl*(120),F2*<10),Acc*(10),Tr«*(12) 2506 M3=1000:Max=29000:Dii S$(5),B*(4) 2510 Dis Pn*<12),Des*!30),Vn*(35),Val*(35),Va2*(35),Loc*(10),Cn*(35),Cn2*(35),Cal*(35),Ca2*(35),Pon*<12) 2515 Input T$ : ? ,”}LQADINS INDEXES* s Poke 1913,87 2520 Trap 7999:0pen #1 ,4,0, "Dl: SETUP. DAT* : Rget #l,Cl$,C2t,N*,A*,Al*,Misc$,Ptl,Ft2,Pt3,Pt4,M3,M4,M5,M6 2530 Close #l:0pen #1,4,0, “Dl : SETUP2. DAT" : Rget #l,D*,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 2540 Dial Acpt*(MaxlMl),Pnpt*(Hax*H2) 2550 Trap 2560: Bosub 1425 2560 Trap 2570: Close #l:0pen #1, 4, 0,"D2: INVPT.DAT": Rget #l,Pnpt* 2570 Close #l:Cl=Val (Cl*) :C2=Val(C2$) 2600 Dt$=D$ 2610 ? "1DATE IS ";D*;“ MMDDYY" 2620 ? "RETURN OR ENTER NEW DATE":? "EXAMPLE: 010183=! JAN. 1,83) “; : Input 9$ 2630 If Len<9*)>6 Then 2610 2640 If Len(0*) >5 Then Dt$=0* 2650 ? *}DATE IS “;Dt$; " !Y OR N)?";:6osub 1220 2660 If KeyOAsc(“Y“) And KeyOAsc(“y") Then Dt$=D$: Goto 2610 2670 D*=Dt*:If 9*="“ Then 2690 2680 Dtot=0:Go5Ub 1160 2690 Gosub 1020 2700 Position 1,2:? #6; "Reports“:Position 1,3:? #6;"Invoicing" 2710 Position 1,4:? #6;"Mail list”: Position 1,5:? #6; * Add/edi t inventory":Position 1,6:? #6;"0rdering receiving" 2720 Position 1,7:? #6; "Syste® setup”:Position 1,9:? #6;“9uit" 2740 Gosub 1215: If Kev<65 Or Key >90 Then 2740 2750 Position 0,9 2760 If Key=Asc("R") Then 3940 2770 If Key=Asc("I") Then 2350 2780 If Key=Asc("N") Then 5120 Then 7999 Then ? "} REMOVE DISKETTES AND TURN SYSTEM OFF": End 2790 If Key=Asc(*A‘) Then 5550 2800 If Key=Asc(“G") Then 6350 2810 If Key-AscCS") 2820 If Key-Asc < "Q") 2830 6oto 2690 2850 Gosub 1020: Posi tion 1,2:? #6; “Sale“:Positian 1,3:? #6; “Inventory" 2860 Position 1,4:? #6; “Exit**: Position 1,5:? #6;"Return to stock":Position 1,6:? #6; “Totals" 2870 Position 1,7:? #6; "Close out day " : Position 1,8:? #6; "Quote" 2890 Gosub 1215 2910 Suote=0:lf Key=Asc(“5"! Then 2990 2920 if Key=Asc("I") 2930 If Key=Asc("E") 2940 If Key=Asc!"R") 2950 If Key=Asc(*T") Then 3660 Then 2690 Then 3720 Then 3840 Then 3870 Then Quote=l:Gotc 2990 2960 If Key=Asc(“C"> 2970 If Key=Asc(“Q") 2980 Goto 2850 2990 Gosub 1025: Posi tion 14,0:? "INVOICE SALE" : Posi ti on 13,1:? "RETURN TO QUIT" 3000 If Quote>0 Then Position 14,0:? “SALES QUOTE ":? 3010 Trap 2850:? "ENTER SALESPERSON #"; : Input Spn:? "ENTER ACCOUNT #";: Input Acc$:St=0:Ttol=0 3015 If Acc*="NEXT" Then Gosub 1425 3020 Gosub 1510: Gosub 1030: Test=0: Tra$=“CASH“ 3030 If Acc$=““ Then Acc=0:Goto 3070 3040 If Acc$="NEH“ Then Acc=Nac:Acc$=Str$(Acc):Test=l 3050 Gosub 1240: Gosub 1280:Gosub 1290: if F>0 Then Gosub 1 320: Goto 3070 3060 Goto 2990 3070 Gosub 1050: Gosub 1060 3080 Fl$="###t $***«.** $**#*#. #**;F2$="*#*ii#.##" 3090 ? "IS THIS INFORMATION CORRECT (Y OR N>" 3100 Gosub 1220: If KeyOAscC'Y") And KeyOAscfy") Then 2990 3110 Trap 3120:Close *7:0pen 17,8,0, "P:":Goto 3130 3120 ? "TURN ON PRINTER AND PRESS RETURN) ":Gosub 1220:Goto 3110 3130 ? #7;N$:? #7; A$: ? #7; Al$:? #7 ; Mi sc$: If Quoted Then In=In+l : Goto 3150 #7:? 17:? #7; Tab (35) ; Chr$ (Pt 1 ) ; “QUOTE- : ? #7:? #7:? #7:Goto 3160 #7:? #7:? #7; Tab (33) ; Chr$ (Pt 1 );" INVOICE- : ? #7; Tab ( 33) ; Chr$ (Pt 1 ) ; In:? #7:? #7:? #7 #7.“============ S r= === = = = ================= » #7; Chr$ (Pt 1 ) ; "TO: " ; Tab i 21 ) ; "ACC* " ; Acc #7;Cn$;Tab(40) ; "DATE: ";D$( 1,2) ; "/";D$(3,4);"/";D$(5,6) #7;Cn2$:? #7;Cal$:Tab (40) ; "SALESPERSON; Spn #7;Ca2t;Tab(40);"P.Q. OR AUTH:";Pon$ 17 ; "======================================“• ? #7; "PART Tab (14); "DESCRIPTION”; Tab (52) ; "I "/".•Position 15,0:? "INVOICING": If Quote>0 Then ? “}“:Position 17.0:? "QUOTE" 3250 Gosub 1080: If Pnt="END“ Then 3410 3260 If Pn$=“NEXT" Then Gosub 3930:5oto 3240 3270 If F=0 Then 3240 3280 Gosub 1130: Gosub 1140 3290 Gosub 1770 3300 Trap 3300: Posi ti on 2,19:? 3310 Trap 3330: Posi t i on 2,20:? 3320 Goto 3340 3330 Pe=Pri 3340 Position 11,19:? H#;" 1 3350 If KeyOAscfY") And KeyOAsc("y") Then ? ")“:Goto 3290 3360 Ep=0:Ep=Hi*Pe:If Pg>4999 Then Ttol=Ttol+Ep 3370 ? i7;Pn$:Tab!14);Des$;Tab(52i;:? #7; Using Fl$,Hm,Pe,Ep 3380 If Quote >0 Then St=St+Ep:Goto 3240 3390 Sol d=Sol d+Hfli: Tds=Tds+Ep: Qoh=Qoh-Hi: St=St+Ep 3400 Gosub 1190: Dtot=Dtot+Ep : Goto 3240 3420 ? ")IS SALE TAXABLE"; : Input Tt:Tas=0 3140 3150 3160 3170 3180 3190 3200 3210 3220 ? 7 04 TP !40 ? 17:? #7 M ; Tab (58) ; "PRICE EA M ;Tab(68) ; “EXT. PRICE 1 ■jL “HOW MANY 41 ? : Input Hi: If Hi<=0 Then 3240 “PRICE EACH"?: Input Pe:If Pe<0 Then 3310 2 Position 13,20:? Pe; M t -1 U IS THIS CORRECT (Y OR Ni";:Gosub 1220 3430 If TIO'Y" find TIO"y“ Then 3460 3440 Trap 3440:Position 2,2:? "TAX RATE X ";Tr*lQO:Position 12,2: Input Te»p:Tr=Te®p/IOO 3450 If T*="Y" Or Tl="y" Then Tax=Int ( (TrtTtol ) *100) / 100: If Tax<Tr*Ttol Then Tax=Tax+0.01 3460 Trap 3460: Position 2,3:? “SHIPPING CHARGE';: Input Sc 3470 Total =St+Sc+Tax 3480 Position 2,5:? “AMOUNT DUE $“;Total:If Quote>0 Then 3500 3490 Trap 3470:Position 2,7:? "AMOUNT RECEIVED”; : Input Aat 3500 Position 2,9:7 “TERMS"; :Posi tion 8,9:? TrmliPosition 7,9: Input Trail 3510 ? "IS THIS CORRECT (Y OR N)“:6osub 1220: If KeyOAscCY") And KeyOAscCy") Then 3420 3520 ? #7; "TERMS: Trail; Tab (52); “SUB-TOTAL"; Tab i68> ; :? #7; Using F2l|st 3530 If Tax >0 Then ? #7;Tab (52) ; "TAXABLE TOT, "; Tab <68) ; :? *7; Using F2$,Ttoi:Ttd=Ttd+Ttol 3540 ? *7;Tab (52) ; “TAX" ; Tab <68) ; :? #7; Using F2I, Tax 17; Tab (52) ; "SHIP/HANDLING"; Tab (68) ; :? #7; Using F2t,Sc ? #7; Tab C52) ; "TOTAL" ; Tab (68) ; : ? 17; Using F2t,Total:If 9uote>0 Then 3610 ? #7; Tab (52) ; “AMOUNT PAID"; Tab (68) ; :? #7; Using F2I, Amt: If A»t>=Total And Tax >0 Then M7=M7+Ttol;M9=M9+Tax If Amt >Total Then ? #7; Tab (52) ; “REFUND" ; Tab (63) ; : ? #7; Using F2I, Amt-Total j ^ 3590 Bal=0:lf Amt<=TotaI Then Bal=Total-A«t (Ajj-. 3600 ? #7; Tab (52) ; “BAL DUE";Tab(63);:? #7; Using F2$,Bal 3610 If Acc>0 Then ? #7; "Please use account number when placing orders," 3620 ? #7;Chrl(Pti); "THANK YOU" ; Chr* (Pt4) : If Suote>0 Then 2850 3630 Tbt=Tdt+Total : Pd=Pd+A«t: Bd=Tdt-Pd: Ytd=Ytd+Total -Tax : Ptd=Ptd+Total -Tax : M8=M8+A«t 3640 If ficc>0 Then Gosub 1500: Gosub 1490: Sasub 1210: If Test>0 Then Nac=Nac+l 3650 Gosub 9000: Gosub 1160: Goto 2850 3660 Gosub 1025: Posi tion 13,0:? "INVENTORY CHECK" Position 11,1:? "ENTER ’END’ TO SUIT" 3670 Gosub 1080: If Pn$=“END" Then 2850 3680 If Pnl="NEXT" Then Gosub 3930: Goto 3660 3690 If F=0 Then 3660 3700 Gosub 1130: Gosub 1140 3550 ? 3560 3570 3580 3710 ? “l":Gosub 1770: Bosub 1220: Goto 2850 'RETURN" 3720 Gosub 1025: Positi on 17,0:? 3730 Gosub 1080: If F=0 Then 2350 3740 Gosub 1130: Gosub 1140 3750 Gosub 1770:Position 2,19:? "IS THIS IT?";:Gosub 1220: If KeyOAscCY") find KeyOAsc("y") Then 2850 3760 Trap 3760:Position 2,19:? "HOW MANY ";: Input Hu: If Hm<=0 Then 2850 3770 Trap 3770:Position 2,20:? "PRICE EACH";: Input Pe:If Pe<0 Then 3770 3780 Position 11,19:? Hm;" “iPosition 13,20:? Pe;“ ":? "IS THIS CORRECT (Y OR N)“;:Gosub 1220 3790 If KeyOAscCY") And KeyOfiscCy") Then 2850 3800 Goh=Qoh+Hm: Sold=Sold-His: T7=Hs*Pe: Tds=Tds-T7; Ytd=Ytd-T7: ? "TAXABLE" ; : Gosub 1220: Tax=0: Ptd=Ptd-T7 3810 If Key=fisc("Y") Or Key=fisc("y") Then Ttd=Ttd-T7: Tax=Int ( (Tr IT7) *100) / 100: If Tax<TrlT7 Then Tax=Tax+0.01 3820 Ytd=Ytd-Tax : Ptd=Ptd-Tax : Dtot=Dtot-T7 3830 S a wn 4408 : Gosub 1 160: Gosub 1 190: Goto 2850 3840 Fl$=“$i#####. ## It#####,## Ittill.ti*:? " YEAR PERIOD TODAY" 3850 ? Using Fll,Ytd,Ptd,Dtot 3860 Gosub 1220: Goto 2910 3370 ? “ ) ARE YOU SURE ?";: Gosub 1220: If KeyOAscCY") Then 2890 3880 Trap 3870:Closs #7:0pen 17,8,0, "P":? *7;Chrl!Ptl) ; “DAILY SALES “;DH1,2);"/";D$(3,4);"/";D*(5) 3890 F2*="l######.##":? #7:? #7; "CASH SALES ";:? #7; Using F2$,M8 3900 ? #7; "TAXABLE SALES";:? #7; Using F2I,M7 3910 ? #7; "TAX COLLECTED";:? #7; Using F2I,M9:M7=0:M8=0:M9=0: Gosub 9000:Gosub 1160 3920 Goto 2690 3930 Close # 1 : Open #1,4,0, “D2: INVPT,DAT":Rget #l,Pnptt:Close #l:fieturn 3940 Gosub 1020: Position 1,0:? #6; "Ali“:Position 1,1:? i6;"0utstanding":Position 1,2:? #6; "Exit to menu" 3950 Position 1,3:? #6;“Selected":Position 1,4:? #6;“Recover files" 3960 Position 1,5:? #6; "Credit accounts":Position 1,6:? #6; "New accounts‘:Position 1,7:? 16; "List accounts" 3970 Position 1,8:? #6;"Update/edit" 3990 Gosub 1215 4000 Fl$= u 4010 If Kev=Asc("A") Then 4120 4020 If Key=AscC0") Then 4380 4030 If Key=Asc(“E”i Then 2690 4040 If Key=Asc(“S") Then 4620 4050 If Key=AscCR") Then 4780 )!!!!!!!!! I ! I ! ! I######.##" 4060 If Key=fisci"C"! Then 4450 4070 If Key=Asc(“N"! Then 4900 4080 If Key=Asc(*L“) Then 4170 4090 If Key=Asc{"U") Then 4970 4100 Goto 3940 4120 Gosub 1025: Posi ti on 16,0:? “ALL ACCOUNTS ":Rc=0 4130 Trap 4770:Gosub 1450: Basub 1430:? #7; Chr$ <Pt 1 ) ; “ALL ACCOUNTS" 4140 Gosub 1430: If Cn$=“" And Acc>Nac Then ? #7;Chr$(Pt4>:Goto 4770 4150 Gosub 1340 4160 Goto 4140 4170 Gosub 1 025: Posi ti on 16,0:? "ACCOUNTS LIST“:Rc=0 4180 ? "NUMERICAL":? “ALPHABETICALLY":? :? "ENTER FIRST LETTER OF YOUR CHOICE"; 4190 Gosub 1220: If Key=Asc!"N“) Then 4220 4200 If Key=Asc(“A“) Then 4260 4210 Goto 4770 4220 Trap 4770:Gosub 1450: Gosub 1430:? #7;Chr$(Ptl); “ACCOUNTS LIST" 4230 Gosub 1480: If Cn$=”“ And Acc>=Nac Then ? #7;Chrt!Pt3);Chrt(Pt4):Goto 4770 4240 Gosub 1580 4250 Goto 4230 4260 Trap 4770:6osub 1450:Gosub 1430:? #7 : Chr$ ! Pt 1 ) ; " ACCOUNTS LIST" : Acpt$=“ B 4270 Trap 4290:Gosub 1480: If Cn$=“" Then 4290 4280 Cn$(5)="":Acptt=Acpt$,"#“,Cn$, "§",3trt(Sa>, "&",Str$IBa):Goto 4270 4290 Tt="zzzzzz":F=0 4300 F=Find(Acpt$,"#",F):If F=0 Then 4330 4310 If Acpt$!F,F+4KT$ Then T$=Acptt(F,F+4) :Fl=F:Goto 4300 4320 Goto 4300 4330 F=Find (Acptt, "8“ , FI ) : Sa=Val ( Acpti (F+l ) ) 4340 F=Find (Acptt, "l(“,F):Ba=Val t Acpt$ tF+1 ) ) 4350 Acptt (FI, FI )="X": Gosub 1470: Gosub 1580 4360 F=Find (Acptt, "#“,0): If F=0 Then ? #7;Chrt!Pt4!:Gosub 1425: Soto 4770 4370 Goto 4290 4380 Gosub 1025: Positi on 10,0:? "OUTSTANDING ACCOUNTS” ;Gto=0:Rc=0 4390 Trap 4770:Gosub 1450:Gosub 1430:? #7;Chr$(Ptl) ; “OUTSTANDING ACCOUNTS" 4400 Gosub 1480: If Acc>Nac Then 4440 4410 If Bd<=0 Then 4400 4420 Gosub 1340:Gto=6to+8d 4430 Goto 4400 4440 ? 17:? #7; ‘TOTAL 0USTANDIN6 $ ";Gto:? #7; Chrf (Pt4) : Soto 4770 4450 Gosub 1025:Position 13,0:? “CREDIT ACCOUNTS" 4460 Gosub 1400: If Tt="“ Then 4770 4465 If Ti="NEXT" Then Gosub 1425:Goto 4540 4470 Trap 458G:Acc=Val(Tt):Acct=Tt:TI="#",Acc$,"g" 4480 F=Find(Acptt,Tt,OS:If F=0 Then ? "ACCOUNT NOT ON FILE)}] “:For «=1 To iOO:Next «:Goto 4450 4490 Gosub 1260: Gosub 1280: Gosub 1290 4500 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1570: Gosub 1610: Gosub 1630 4510 ? "IS THIS THE 0NE":Gosub 1220: If Key=Asc<"t“) Then 4590 4520 If Key<>Asc("Y“) And KeyOAsc('y') Then 4770 4530 ? "ENTER AMOUNT OF PAYMENT"; : Input Put 4540 ? “IS THIS CORRECT": Gosub 1220 4550 If KeyOAscCV) And KeyOAscfy”) Then 4530 4560 Pd s Pd+Pit:Bd=Bd-Pfflt 4570 Gosub 1500: Gosub 1490: Goto 4770 4580 Trap 4770: Gosub 1280 4590 Trap 4600:Gosub 1480: If Tt=Cnt(l,LeniTt)) Then 4500 4600 If Acc>=Nac Then 4770 4610 Goto 4590 4620 Gosub 1025:Position 12,0:? "SELECTED ACCOUNTS" 4630 Gosub 1400: If Tt="“ Then 4770 4635 If Tt=“NEXT" Then Gosub 1425:Goto 4620 4640 Trap 4690:Acc=Val (T$) :Acc$=T$:T$=“i",Acc$, "8" 4650 F=Find (Acptt, T$,0): If F=0 Then ? “ACCOUNT NOT ON FILEJJJ H : For «=1 To lOOiNext W:Goto 46 4660 Gosub 1260: Gosub 1280: Gosub 1290 t-O 4670 Goto 4730 46S0 Trap 4770i Gosub 1430: Gosub 1340: Goto 4770 4690 Trap 4770: Gosub 1280 4700 Trap 4710:Gosub 1480: If Tt=Cn$(l,Len(T$>) Then 4730 4710 If flcc>=Nac Then 4770 4720 Goto 4700 4730 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1 570: Gosub 1610: Gosub 1630:Gosub 1220 4740 If Key=AscCt“) Then 4700 4750 If KeyOAscCP") And KeyOAscCp") Then 4770 4760 Goto 4680 4770 Close #1 : Close #7: Goto 3940 4780 ? "THIS FUCNTIQN KILL REINDEX ALL OF THE’:? “ACCOUNT FILES. PRESS Y TO START,":? “N TO ABORT."; 4790 Gosub 1220 4800 If KeyOAscfY*) And KeyOAscCy") Then 3940 4810 Close #1 : Open #1,4,0, “D1 : ACCOUNT, DAT " 4820 Acpt$=““:Trap 4870 4830 Gosub 1480 4840 S$=Str$ (Sa) : 8$=Str$ (Bai s Acc$=Str$ (Acc ) 4850 Acpt$=Acpt$, Acc$, "i“,S$, "&",B* 4860 Goto 4830 4870 Close #l:Poke 1913,80:Qpen #1,8,0, "Dl.-ACCPT. DAT” 4880 Rput fl,Acpt$ 4890 Close #l:Poke 1913,87:Goto 3940 4900 Gosub 1025:Position 16,0:? "NEK ACCOUNTS" 4910 Acc$=Str»(Nac):Gosub 1240: If F=0 Then 4770 4920 Gosub 1280: Gosub 1290: Gosub 1510: Gosub 1530: Gosub 1050: Gosub 1540:Gosuh 1320: Gosub 1570 4930 Position 2,18:? "IS THIS CORRECT?";: Gosub 1220 4940 If KeyOAscCY") And KeyOAsc!"y"> Then 4770 4950 Tdt=0: Pd=0: Bd=0:Gosub 1500: Gosub 1490: Nac=Nac+l: Gosub 9000: Gosub 1160 4960 Goto 4770 4970 Gosub 1025:Position 15,0:? "UPDATE/EDIT" 4980 Gosub 1400: If T$="" Then 4770 4985 If T$="N£XT" Then Gosub 1425:Goto 4970 4990 Trap 5080:Acc=Val <T$);Acc$=T$:T$="t",Acci,"8“ 5000 F s Find(Acpt$,T$,0):If F=0 Then ? "ACCOUNT NOT ON FILE} } T u : For W=1 To 100:NeKt WsGoto 4970 5010 Gosub 1260: Gosub 1280: Gosub 1290 5020 Gosub 1510: Gosub 1530:Gosub 1320:Gosub 1570:Gosub 1610:Gosub 1630:? "IS THIS THE 0NE“:Gosub 1220 5025 If Key=AscC*") Then 5090 5030 If KeyOAscCY") And KeyOAscCy") Then 4770 5040 Gosub 1050: Gosub 1540: Gosub 1650 5050 ? “IS THIS CORRECT?";: Gosub 1220 5060 If KeyOAscCY") And KeyOAscCy") Then 4770 5070 Gosub 1500: Gosub 1490:Goto 4770 5080 Trap 4770: Gosub 1450 5090 Trap 5100:Gosub 1480: If T$=Cn$(l,Len(T$) ) Then 5020 5100 If Acc)=Nac Then 4770 5110 Goto 5090 5120 Gosub 1020:Position 1,1:? #6; "AH":Position 1,2:? #6; “Outstanding”:Position 1,3 5130 Position 1,4:? 16; “Selected accounts" 5150 Gosub 1215 ? #6; "Exit to senu 5170 If Key=Asc ( “A" ) Then 5230 5180 If Key=AscC0") Then 5300 5190 If Key=AscCE") Then 2690 5200 If Key=Asc("S") Then 5370 5210 Goto 5120 5230 Gosub 1025: F'osi ti on 16,0:? "ALL ACCOUNTS" 5240 Gosub 1045 5250 Trap 5540:Gosub 1450 5260 Gosub 1480: If Cnt=*“ And Acc.'Nac Then 5540 5270 If Cn4="“ Then 5260 5280 Gosub 1430:6osub 1670 5290 Goto 5260 5300 Sosub 1025: Position 10,0s? “OUTSTANDING ACCOUNTS" 5310 Gosub 1045 5320 Trap 5540: Gosub 1450 5330 Gosub 1480: IT Acc>Nac Than 5540 5340 If Bd<=0 Then 5330 5350 Gosub 1430: Gosub 1670 5360 Goto 5330 5370 Gosub 1025: Position 12,0:? “SELECTED ACCOUNTS" 5380 Gosub 1045 5400 Gosub 1400: If T$="“ Then 5540 5405 If T$="NEXT" Then Gosub 1425:Goto 5370 5410 Trap 5470:Acc=Val <T$):Acc*=T*:T*=“#",Acc*,"8" 5420 F=Find(Acpt$,T$,0):If F=0 Then ? "ACCOUNT NOT ON FILEl)}“:For «=1 To 100:Next H:Goto 5370 5430 Gosub 1260 5440 Trap 5540: Gosub 1450: Gosub 1470 5450 Goto 5510 5460 Gosub 1430:Gosub 1670:Goto 5510 5470 Trap 5540: Gosub 1450 5480 Trap 5490:Gosub 1480: If T$=Cnt(l,Len(T$!) Then 5510 5490 If Acc)=Nac Then 5540 5500 Goto 5480 5510 Gosub 1730: Gosub 1220: If Key=Asc!"t“) Then 5480 5520 If KeyOAsc(“P“) And KeyOAscfp") Then 5540 5530 Goto 5460 5540 Close IliClose #7:Goto 5120 5550 Gosub 1020: Posi tion 1,1:? #6;"Add inventory":Position 1,2:? #6; "Inventory edit": Posit i on 1,3:? #6: "Exit to 5560 Position 1,4:? 16: "Print inventory“:Position 1,5:? #6; "Recover files'sPosition 1,6:? 16; "Sort inventory" 5580 Gosub 1215 5600 If Key=Asci"A“) Then 5660 5610 If Key=Ascf"I") Then 5850 5620 If Key=Asc!“E"! Then 2690 5630 If Key=Asci"P") Then 6090 5640 If Key=Asc("R"i Then 6260 5645 If Key=Asc("S") Then 7100 5650 Goto 5550 5660 Gosub 1025: Posi tion 14,0:? “ADD INVENTORY" : Positi on 11,1:? "ENTER ’END' TO QUIT" 5670 Pn$= , ":Des$="":Qoh=0:Cost=0:Pri=0:Sold=0:Tds=0:8oo=0 5680 Gosub 1770:6osub 1860 5690 If Pn$=“END" Then 5820 5700 Gosub 1970: If F>0 Then 5680 5710 ? "IS THIS INFORMATION CORRECT !Y OR Ni.“; 5720 Gosub 1220 5730 If KeyOAscCY") And KeyOAsc<*y") Then 5660 5740 Trap 5750: Goto 5760 5750 Trap 5810: Open #1,9,0, "D2: INVFIL.DAT" 5760 If Len(Pnpt$)>Max*H2-15 Then ? "} MEMORY FULL, SAVING INDEX“:6oto 5820 5770 Note #l,S,B:Rput tl,Pn$,Des$,Vn$,Vali,Va2$,Qoh, Loci, Reo, Cost, Pri, Sold, Tds,Qoo,Pq 5780 S$=Str$(S):Bi=Str$!B> 5790 Pnpt$=Pnptt, "#",Pn$, “8“,S$, "&“,8i 5800 Goto 5660 5810 ? "JDISK ERROR}}": Close #l:Goto 5660 5820 Close #l:Poke 1913,B0:0pen #1,8,0, "D2: INVPT.DAT* 5830 Rput #i,Pnpt$ 5840 Close #l:Poke 1913,87:Goto 5550 5850 Sosub 1025: Position 14,0:? "INVENTORY EDIT" : Posi ti on 11,1:? "ENTER ’END’ TO QUIT" 5860 ? :? “PART NUMBER": Input Pn$:? " “: If Pn$=“END" Then Close #l:6oto 5550 5865 If Pn$=“NEXT“ Then Gosub 3930: Goto 5850 5870 T$="#",Pn$, "8" 5880 F=Find(Pnptl,TI,0):T=F:If F=0 Then ? " PART NUMBER NOT IN INVENTORY} }>“: For N=1 To 100:Next N:Goto 5850 5890 Trap 5950:F=Abs(F):F=Find!PnpU,“8",F):S=Val (Pnpt*(F+l)) 5900 F=Find(Pnptl,"St",F):B=Val (Pnptt (F+l > ) 5910 Trap 5920: Goto 5930 isenu" 5920 Gcsub 1130 5930 Point #l,S,B:Rget 11, Pnt, Best, Vn$,Val*,Va2$, Boh, Loc$,Reo, Cost, Pri, Sold, Tds,Qoo,Pg 5940 If Test=l Then Test=0: Sato 5870 5950 ? "Imposition 14,0:? "INVENTORY EDIT":? :Gosub 1770 5960 ? “(E)DIT; (8)UIT; (S)AVE; (N)EXT; : 5970 Gosub 1220:? 5980 If Key=Asc(“E“) Or Key=Asc!“e") Then 6050 5990 If Key=Asc("a") Or Key=Asc("q") Then Close #l:Goto 5550 6000 If Key=Asc(“S") Or Key=Asc!"s") Then 6060 6010 If Key=Asc("N"> Or Key=Asc("n"i Then 5850 6020 If Key=Asc!“+“) Then F=T- 10: If F>=0 Then Test=l:6oto 5890 6030 If Key=Asc("*") Then Test=l : Goto 5890 6040 Goto 5950 6050 Gosub 1860: Goto 5950 6060 Gosub 1970: If F>0 And TOF Then 5950 6070 Gosub 1190 6080 Goto 5850 6090 Gosub 1025: Posi ti on 17,0:? “0PTI0NS“:Gtc=0:Gtp=Q 6100 ? 6110 ? :? “1-ALL":? "2-BY VENDOR NAME":? "3-BY PRODUCT GROUP" “5-BELQW REORDER POINT and not on order” ? a 4-PRICE LIST" 6120 Gosub 1220: Key=Key-48: If Key >5 Or Key<l Then 5550 6130 Trap 6250:Gosub 1430:6osub 1130 6140 If Key=4 Then Gosub 2170: Goto 6190 6150 Cn$=" INVENTORY ":If Key=5 Then Cn$="L0W INVENTORY " 6160 If Key=2 Then ? "VENDOR NAME"; : Input Cn$ 6170 Trap 6170: If Key=3 Then ? “PRODUCT GROUP": : Input F'gn:Cn$="PRODUCT GROUP #“,Str$(Pgn) 6180 Gosub 2020 6190 Trap 6240: Rget #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$,Rec, Cost, Pri, Sold, Tds, Boo, Pg 6200 Trap 6220:Tcost=0:Tcost=Cost4Qoh:Tpri=0:Tpri=PritBoh:Gp«=100 6210 Gp*=(Int((l-(Cost/Pri)) *1000)1/10 6220 On Key Gcsub 2090,2130,2150,2220,2250 6230 Goto 6190 6240 ? *7 ; Chrf <Pt3) : ? #7; " WHOLESALE VALUED" ;Gtc:? #7; "RETAIL VALUED “;Gtp:? #7;Chr*(Pt4) 6250 Close ihClose *7:Goto 5550 6260 ? "THIS FUCNTION WILL REINDEX ALL OF THE":? "INVENTORY FILES. PRESS Y TO CONTINUE,":? "N TO ABORT. 6270 Gosub 1220 6280 If KeyOAscCY") And KeyOAscCy") Then 5550 6290 Gosub 1130 6300 Pnpt$="":Trap 5820 6310 Note # 1 , S, B: Rget #l,Pn$,Desl,Vn*,Val*,Va2$,aoh, Loot, Reo, Cost, Pri, Sold, Tds, Qoo, Pg 6320 S*=Str$iS):B$=Str$(B> 6330 Pnpt*=Pnpt»,"#",Pnt,"8",S$,“fc*,Bi 6340 Goto 6310 6350 Gosub 1020: Position 1,1:? 16; "Order": Position 1,2:? #6;*Receiving":Position 1,3:? #6; “Exit to menu 6360 Position 1,4:? *6; "Turn report“:Position 1,5:? *6; “Sales report" 6380 Gosub 1215 6400 If Key=Asc("0") Then Te=0:Goto 6460 6410 if Key=Asc("R") Then 6680 6420 If Key=Asci"E“) Then 2690 6430 If Key=Asc(“T") Then 6800 6440 If Key=Asc("S“l Then 6920 6450 Goto 6350 6460 Gosub 1025: Posit ion 13,0:? "PURCHASE ORDER" 6470 If Te=0 Then Position 11,1:? “ENTER ’END’ TO ABORT” 6480 Pn$=“ , :De5*="":Vn$="":Val*="":Va2$=““:Qoh=0:Loc$=*“:Reo=0:Co5t=0:Pri=0:Sold s 0:Tds=0:9oo=0 6490 ? :? “PART NUMBER": Input Pn$:? “ ":If Te=0 And Pn$=“END“ Then 6910 6500 If Pn$="NEXT“ Then Gosub 3930: Goto 6460 6510 If Pn$=“" And Te>0 Then 6630 6520 Gosub 1090: If F=0 Then 6460 6530 Gosub 1 130: Gosub 1140:Gosub 1770 6540 ? "IS THIS THE PART (Y OR N).“;:Gosub 1220 6550 If KeyOAscfY*) And KeyOAsc!"y"! Then 6460 6560 6570 6580 6590 6600 6610 66i!0 6630 6640 6650 6660 6670 6680 6690 6700 6710 6720 6730 6740 6750 6760 6770 6780 6790 6800 6810 6820 6830 6840 6350 6860 6870 6880 6890 6900 6910 6920 6930 6940 6950 6960 6970 6980 6990 7000 7010 7020 7030 7040 7050 7100 7110 7120 7130 7140 7150 7160 7170 7180 7190 7200 7210 ? '^Position If Pv$=*" Then Pv$=Vn$;Pal$=Val$:Pa2$=Va2$ If Pv$OVn* Then ? :? “NOT SAME VENDOR! IS THIS QK?";:GQSub 1220: If KeyOAsc('Y') And KeyOAscCy") Then 6460 ? "imposition 2,2:? "9UANITY TO ORDER"; : Trap 6580: Input Hut: If Hib< 1 Then 6460 ? :? 'IS THIS CORRECT?";: Gosub 1220: If KeyOAscCY") And KeyOAsd'y") Then 6580 Goo=Soo+H« If TeCl Then Sosub 2330 Gosub 2460: Gosub 1190: Goto 6460 ? "ITERMS";: Input T$;? “AUTH.";: Input 0$ ? #7; “DATE ";D*(1,2);"/";D$(3,4);"/";D$(5);" TERMS ";T$;“ AUTH. ";Q$ ? #7; “TOTAL $";Tot;Chr$(Pt4) P v$= " ": Te=0 : Tot =0 : M 1 0=M 10+ 1 : Gosub 1170: Soto 6910 Gosub 1025: Posit ion 14,0:? "RECEIVING P.0. "Position 11,1:? “ENTER ’END’ TO SUIT" ? :? “PART NUMBER': Input Pn$:? " If Pnt=‘£ND" Then Close #l:Goto 6350 If Pn*="NEXT* Then Gosub 3930: Goto 6680 Gosub 1090: If F=0 Then 6680 Gosub 1 130: Gosub 1 1 40: Gosub 1770 ? "IS THIS THE PART (Y OR Ni.“;:Gosub 1220 If KeyOAscCY') And KeyOAsd'y") Then 6680 ,2:? “SUANITY RECEIVED"; : Trap 6750: Input Hm: If Hm< 1 Then 6680 IS THIS CORRECT?";: Gosub 1220: If KeyOAscCY") And KeyOAsd'y") Then 6750 Qoo=Gqo-H«: Q oh=QQh+Hm: I f Qoo<0 Then 8oo=0 Gosub 1190 Goto 6910 Gosub 1025: F’osi ti on 15,0:? "TURN REPORT" Position 2,2:? "l.TURN" :Position 2,4:? “2. TURN AND CLEAR" : Posi tian 2,6:? "3. EXIT" Trap 6820: Position 2,13:? "ENTER CHOICE": Input Key: If Key=3 Then 6350 If Key >3 Then 6820 F=1 : Gosub 1430: Gosub 2270 Trap 6900:Gosub 1110: If F=0 Then 6900 Gosub 1 130: Gosub 1140 ? #7; Using Fi$, Pn$, Des$, Qoh, Cost, Pri , Qoc. Loc$, Sol a, Tds ' — If Key=2 Then Sold=0:Tds=0:Gosub 1190 Goto 6850 ? #7;Chr$!Pt3) :? #7;Chr$(Pt4) Close IliClose #7:Soto 6350 Gosub 1025: Posi ti on 13,0:? "SALES REPORT" Position 2,2:? " 1 . TOTALS" : Posi tian 2,4:? "2. TOTALS AND CLEAR": Position 2,6:? "3.EXIT" Position 2,8:? “4.NEN YEAR (Clears all sales data)" Trap 6820:Position 2,18:? "ENTER CHOICE": Input Key: If Key=3 Then 6350 If Key>4 Then 6950 Gosub 1430:? #7; Chr$ <Ptl ) ; "SALES REPORT ";D$(1,2);“/";D$(3,4);"/";D$(5,6) Fl$="$#####tt##,#t" ? #7; “YEARLY SALES =';:? #7; Using Fl$,Ytd ? #7 ; “PERIOD SALES =“;:? #7; Using Fl$,Ptd ? #7; "TAXABLE SALES=“;:? #7; Using Fl$,Ttd ? #7;Chr$!Pt4) If Key >1 Then Ptd=0:Ttd=0:Dtot=0:If Key=4 Then Ytd=0 If Key >1 Then Gosub 9000: Gosub 1170 Goto 6910 Gosub 1025: Position 14,0:? "IVENT0RY SORT" ? :? "PLACE BLANK DISK IN DRIVE 1.“:? “PRESS ’V TO START," Gosub 1220: If KeyOAscCY") Ana KeyOAscCy"! Then 5550 Trap 7100: Xio 254,11,0,0, “Dl: “ Close #1 : F’ake i?13, 80: Open 11,8,0, "D: INVPT,DAT":Rput #l,Pnptt:Close ihPoke 1913,87 Open #1,6,0, "D: INVFIL.DAT": Close #2:Gpen #2,4,0, "D2: INVFIL.DAT" T$="zzzzzzzzzzzz":F=0 F=Find!Pnpt$,"#",F):If F=0 Then 7210 Z=Find(Pnptf,*t\F) If Pnpt$!F,Z-l)<T$ Then T$=Pnptt (F, Z-l ) : FI =F: Goto 7170 If F>0 Then 7170 F=Find(Pnpt$,"§" l Fl):S=Val (Pnptt(F+D) 7220 F=Find(Pnpt$,“&*,F):B=Val (Pnpt$(F+D) 7230 Pnpt$(Fl,Fl)=*X" 7240 Point #2, S, B: Rgst #2, Pn$, Des*, Vn$, Valf , Va2$, Qoh f Loc*, Reo, Cost, Pri , Sold, Ids, Qoo, F'g 7250 Rput tl, Pn$,Des$,Vn$,Valt,Va2$,Qoh,Loc$,Reo, Cost, Pri, Sold, Tds, 8oo, Pg 7260 F=Find(Pnpt$, “#“,0) : If F>0 Then 7160 7270 Close *l:Close #2:? “} REMOVE DISK FROM DRIVE 1 AND PUT IT”:? “IN DRIVE 2. PRESS ANY KEY WHEN READY* 7280 Gosub 1220: 6oto 6290 7999 Close #l:Reu . SETUP 8000 Gosub 1025 8005 Tr«$="C.O.D. “: If LeniCUXl Then C1$="0":C2$=“G" 8010 Gosub 8570: Gosub 1220 8020 If Key=Asc("E") Or Key=AscCe") Then Gosub 8720: Goto 8000 8030 If Key=Asc(“C”) Or Key=AscCc"! Then 8050 8040 If Key=AscCR“) Or Key=AscCr"! Then 2550 8042 If Key=Asc!”F B ) Or Key=Asc("f*) Then Gosub 8900:? *}" 8044 If Key=A5c("l1*) Or Key=Asc(“s“) Then Gosub 8950 8049 Goto 8010 8050 ? “} SCREEN COLOR IS “;C1 8060 ? "RETURN OR ENTER NEW COLOR (0-255)";: Input S$: If 0$=““ Then Qt=Cl» 8070 If Len £Q$) >3 Then 8050 8080 Poke 710,Val(Q»l 8090 ? "IIS THIS CORRECT SY OR N)?”;:Gosub 1220 8100 If KeyOAscCY") And KeyOAscCy") Then Poke 710,Cl:Goto 8050 8110 C1$=Q$ 8120 ? "I BACKGROUND COLOR IS “;C2 8130 ? “RETURN OR ENTER NEW COLOR (0-255) ";: Input S$:if G$=““ Then Q$=C2$ 8140 If Len (8$) >3 Then 8120 8150 Poke 712, Val (8$) 8160 ? “IIS THIS CORRECT (Y OR N)?";:Gosub 1220 8170 If KeyOAscCY") And KeyOAscCy*) Then Poke 712,C2:Goto 8120 8180 C2$=8$ 8190 ? “} CLEAR TOTALS (Y OR N) : Gosub 1220 8200 If KeyOAscCY") And KeyOAscCy*) Then 8220 8210 Dtot=0: Ytd=0:Ftd=0: Ttd=0; 117=0: M8=0: H9=0 8220 ? “IWRITE SETUP DATA FILE. (Y OR N)?“;:Gosub 1220 8230 If KeyOAscCY”) And KeyOAsc("y") Then 8250 8232 Trap 8234:Close il:0pen #1,4,0, ”D: MASTER" : Close #l:Goto 8240 8234 ? “JCAN ONLY WRITE TO MASTER DISK}}}":Goto 8010 8240 Gosub 8540 3250 ? "UNITIALIZING INVENTORY FILES WILL":? “ERASE INVENTORY RECORDS IN DRIVE 2." 8260 ? “INITIALIZE INVENTORY FILES. (Y OR N)?";:Gosub 1220 3270 If KeyOAscCY") And KeyOAscCy') Then 8350 3280 ? "} PLACE DATA DISK IN DRIVE 2 AND“:? "PRESS ’Y’ TO START, ’N’ TO ABORT."; 8290 Gosub 1220 8300 If KeyOAscCY") And KeyOAscCy") Then 8350 8310 ? " 3 THIS WILL TAKE A WHILE.":? "FORMATTING DISK IN DRIVE 2. “: Xio 254,#1,0,0,*D2:“ 8320 Trap 8330:? “UNITIALIZING SYSTEM FILES IN DRIVE 2.":Di® Pnpt$(Max*M2) 8330 Trap 8340:Poke 1913,80:Gpen #1,8,0, “D2: INVPT.DAT": Rput #l,Pnpt$ 8340 Close #l:Trap 8350:Poke 1913,87:0pen #1,8,0, “D2: INVFIL.DAT" 8350 Close #1:? “UNITIALIZING ACCOUNT FILES WILL":? "ERASE CUSTOMER RECORDS IN DRIVE 1." 8360 ? "INITIALIZE ACCOUNT FILES. (Y OR N)?“;:Gosub 1220 8370 If KeyOAscCY*) And KeyOAscCy") Then 8510 8380 Sac=M3+l:? “} STARTING CUSTOMER NUMBER:"; Sac 8382 ? “THIS WILL TAKE ABOUT “j Int(HU30) ; “ MINUTES." 8385 Trap 8390: Bi a AcptKMUMax) 3390 ? "PRESS ’V TO START, ’N’ TO ABORT."; 8400 Gosub 1220 3410 If KeyOAscCY") And KeyOAscCy") Then 8510 8420 Gosub 8680 8430 Trap 8490:Qpen #1 , 8, 0, “D1 : ACCOUNT. DAT” : ficpt$=“ ” 8440 For Acc=Sac To Sac+2500 8450 Note #l,Sa,Sb:Rput #l,Cnt,Cn2t,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Tr*$ 8460 8470 8480 8490 8495 8496 3500 8510 8540 3550 3560 8570 8580 8590 8600 8610 3620 3630 3640 8650 8660 8670 8680 8690 8 ^ Acpt$ s Acptl, *T‘,Strl(Acc) , “@“,StrlCSa) , **lt H , Str$ (Sb) If Len(Acpt$)>}11J!1ax-l5 Then Pop : Goto 8490 Next Acc ? s? “LAST CUSTOMER NUMBER THIS DISKs R ; Acc : M3=Acc ; Sosub 8880 Trap 8496; Close #l:Qpen #1,4,0, "D: MASTER" s Close #1 ; Nac=Sac ; Goto 8500 Gosub 9000 Gosub 8540 Close #1 i Goto 2550 Open #1,8,0, 8 Di: SETUP. DAT" :Rput # 1 , Cl$, C2$, N$, A$, Al$, Hi sc$, Pt 1 , Pt2, Pt3, Pt4, M3, M4, M5, M6: Close #1 Close #1 : Open #1,8,0, “ D 1 s SETUP2 . DAT B ; Rp u t #1 , D$, Dtot , In, Ytd, Ptd, Ttd , Nac , Tr , Ml , M2, M7, MS, M9, Ml 0 Close #1 ; Return “DATE (MMDDYY) ; “;D$ “YOUR COMPANY NAME;";? N$ "YOUR COMPANY ADDRESS; “:? Al:7 All Position 2,8s? "HISC. INFORMATION; a s ? Hiscl Position 2,10:7 “TAX RATE IN l “iTrliOO “EXPANDED PRINT CODE: “;Ptl “CONDENSED PRINT CODE: ";Pt2 “CANCEL CONDENSED CODE: ";Pt3 “;Pt4 “;In+l "jMltlOO “;H2tl00 “NEXT PO NUMBER: “;H10 Position 2,2:7 Position 2,3:7 Position 2,5:7 Position 2,11:7 Position 2,12:7 Position 2,13:7 Position 2,14:7 “FORK FEED CODE: Position 2,15:7 “NEXT INVOICE #; “7. ACCOUNTS f s: “7. PART NUMBERS; v 8705 8710 3720 8730 8740 8750 8760 8770 8780 8790 8800 3810 8320 8830 3840 3850 8860 8870 8830 8900 8920 3930 8950 8960 8965 8970 8980 9000 9010 9020 Position 2,16:7 Position 2,17:7 Position 2,18:7 Position 2,20:7 " (E)dit, (Oontinue, (R)eturn to $snu ! Position 2,21:7 “(F)or*at drive 1 , <M) ake Master* Return Position 16,2: Input 0$; I t Len(DI)<>6 Then 8720 Trap 8720: If Val (0$) <10100 Then 8720 Position 1,4: Input Nl Position 1,6: Input Al Position 1,7s Input All Position 1,9: Input Nisei Position 15,10 Position 22,11 Position 23,12 Position 24,13 Position 17,14 Position 17,15 Position 17,16 Position 17,17 Position 17,18 Trap 3780 Trap 8790 Trap 3300 Trap 8810 Trap 8320 Trap 8830 Trap 8840 Trap 8850 Trap 3360 Input Te$p:Tr=Te*p/100 Input Ptl: If Pt 1 >255 Then 8790 Input Pt2:If Pt2>255 Then 8800 Input Pt3s If Pt3>255 Then 8810 Input Pt4: If Pt4>255 Then 8820 Input Temp : In=T emp-i Input Temp; Ml^Temp/ 100 Input Temp: M2=Temp/100 Input NIC Return Close #1 ; Poke 1913,80:0pen #1,8,0, M D1 : ACCPT, DAT" : Rput #1 f Acpt$: Cl ose #liPoke 1913, 87: Return ? ") FORMAT DRIVE 1, ARE YOU SURE? 1 ' : Sosub 1220s If KeyOAsciT) And KeyOfiscCy") Then Return Trap 8930: Close *i:Xio 254,11,0,0, “Di:":CIose #l:Return ? "FORMAT ERROR, PRESS ANY KEY TO TRY":? "AGAIN.": Sosub 1220:6oto 8920 Close #1 : Open #1,8,0, "D:MASTER“ Trap 8965:? “}":? :? "ENTER STARTING ACCOUNT NUMBER";: Input Stac:Goto 8970 Stac=1001 M3=Stac-l:Rput #1 , Stac Close #1 : ? Return Trap 9010:Close #1 : Open #1,4,0, *D: MASTER" : Cl ose #1 : Return ? :? "PUT MASTER DISK IN DRIVE 1”:? "AND PRESS ANY KEY." Gosub 1220: Goto 9000